home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / UserStartup / Sources / PModules.Lha / PModules / epp / upperChar.e < prev   
Encoding:
Text File  |  1994-03-22  |  87 b   |  3 lines
  1. PROC upperChar (char) RETURN IF (char > 96) AND (char < 123) THEN (char-32) ELSE char
  2.  
  3.